home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00801_SU-IN co 1.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  724 b   |  23 lines
  1. on enterFrame
  2.   global g1erSprNav, exitFrame, gLocLabel, g1erSprLoc, gMaxBoutons, gEtudAct, gEtudPrec, gEtatEtud, gSujet0, gPartie, gTraduit, gScopeCo0, gScopeCo1, gPosDebE
  3.   set gMaxBoutons to 36
  4.   set gLocLabel to "SU:RN CO"
  5.   set gPosDebE to 18 * 4 * 300
  6.   set the visible of sprite 2 to 1
  7.   set gEtudPrec to gEtudAct
  8.   set gEtudAct to "CO"
  9.   if ((gEtudPrec = "SU") or (gEtudPrec = "CO")) and (gPartie <> " ") then
  10.     nothing()
  11.   else
  12.     repeat with i = g1erSprLoc + 10 to gMaxBoutons
  13.       set the visible of sprite i to 0
  14.     end repeat
  15.     gScopeCo0(visible, 0)
  16.     gScopeCo0(Box, 20, 92, 280, 256)
  17.     gScopeCo0(Restore)
  18.   end if
  19.   gScopeCo1(visible, 0)
  20.   gScopeCo1(Box, 20, 296, 280, 460)
  21.   gScopeCo1(Restore)
  22. end
  23.